home *** CD-ROM | disk | FTP | other *** search
- object frmMain: TfrmMain
- Left = 193
- Top = 97
- BorderStyle = bsDialog
- Caption = 'Send Mail'
- ClientHeight = 375
- ClientWidth = 505
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- Position = poScreenCenter
- TextHeight = 13
- object grpSession: TGroupBox
- Left = 8
- Top = 8
- Width = 489
- Height = 97
- Caption = 'Session Info'
- TabOrder = 0
- object Label1: TLabel
- Left = 8
- Top = 32
- Width = 81
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Login Name:'
- end
- object Label2: TLabel
- Left = 8
- Top = 64
- Width = 81
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Password:'
- end
- object edtName: TEdit
- Left = 96
- Top = 25
- Width = 121
- Height = 20
- TabOrder = 0
- end
- object edtPwd: TEdit
- Left = 96
- Top = 57
- Width = 121
- Height = 20
- PasswordChar = '*'
- TabOrder = 1
- end
- object chkLogonUI: TCheckBox
- Left = 248
- Top = 24
- Width = 121
- Height = 17
- Caption = 'Show logon dialog'
- State = cbChecked
- TabOrder = 2
- OnClick = chkLogonUIClick
- end
- object chkNewSession: TCheckBox
- Left = 248
- Top = 40
- Width = 121
- Height = 17
- Caption = 'Create new session'
- TabOrder = 3
- OnClick = chkNewSessionClick
- end
- object chkDownload: TCheckBox
- Left = 248
- Top = 56
- Width = 121
- Height = 17
- Caption = 'Download new mail'
- TabOrder = 4
- OnClick = chkDownloadClick
- end
- object btnConnect: TBitBtn
- Left = 408
- Top = 16
- Width = 73
- Height = 33
- Caption = 'Connect'
- TabOrder = 5
- OnClick = btnConnectClick
- Style = bsNew
- end
- object btnDisconnect: TBitBtn
- Left = 408
- Top = 56
- Width = 73
- Height = 33
- Caption = 'Disconnect'
- Enabled = False
- TabOrder = 6
- OnClick = btnDisconnectClick
- Style = bsNew
- end
- end
- object grpMessage: TGroupBox
- Left = 8
- Top = 112
- Width = 489
- Height = 257
- Caption = 'Message Info'
- TabOrder = 1
- object Label3: TLabel
- Left = 8
- Top = 24
- Width = 81
- Height = 13
- AutoSize = False
- Caption = 'Note Text:'
- end
- object Label4: TLabel
- Left = 168
- Top = 24
- Width = 97
- Height = 13
- AutoSize = False
- Caption = 'File Attachments:'
- end
- object Label5: TLabel
- Left = 328
- Top = 24
- Width = 81
- Height = 13
- AutoSize = False
- Caption = 'Recipients:'
- end
- object Label6: TLabel
- Left = 8
- Top = 144
- Width = 41
- Height = 13
- AutoSize = False
- Caption = 'Subject:'
- end
- object Bevel1: TBevel
- Left = 8
- Top = 168
- Width = 233
- Height = 81
- Shape = bsFrame
- end
- object Bevel2: TBevel
- Left = 248
- Top = 168
- Width = 233
- Height = 81
- Shape = bsFrame
- end
- object memoText: TMemo
- Left = 8
- Top = 40
- Width = 153
- Height = 89
- Hint = 'Right-click to clear'
- Lines.Strings = (
- '')
- ParentShowHint = False
- ScrollBars = ssVertical
- ShowHint = True
- TabOrder = 0
- OnMouseDown = memoTextMouseDown
- end
- object memoFiles: TMemo
- Left = 168
- Top = 40
- Width = 153
- Height = 89
- Hint = 'Right-click to clear'
- ParentShowHint = False
- ScrollBars = ssVertical
- ShowHint = True
- TabOrder = 1
- OnMouseDown = memoTextMouseDown
- end
- object memoRecips: TMemo
- Left = 328
- Top = 40
- Width = 153
- Height = 89
- Hint = 'Right-click to clear'
- ParentShowHint = False
- ScrollBars = ssVertical
- ShowHint = True
- TabOrder = 2
- OnMouseDown = memoTextMouseDown
- end
- object btnSend: TBitBtn
- Left = 160
- Top = 208
- Width = 73
- Height = 33
- Caption = 'Send Mail'
- TabOrder = 3
- OnClick = btnSendClick
- Style = bsNew
- end
- object btnRead: TBitBtn
- Left = 400
- Top = 208
- Width = 73
- Height = 33
- Caption = 'Read Mail'
- TabOrder = 4
- OnClick = btnReadClick
- Style = bsNew
- end
- object edtSubject: TEdit
- Left = 56
- Top = 136
- Width = 425
- Height = 20
- TabOrder = 5
- end
- object chkShowAddressBook: TCheckBox
- Left = 16
- Top = 176
- Width = 129
- Height = 17
- Caption = 'Show Address Book'
- TabOrder = 6
- OnClick = chkShowAddressBookClick
- end
- object chkShowDialog: TCheckBox
- Left = 16
- Top = 200
- Width = 137
- Height = 17
- Caption = 'Show send note dialog'
- TabOrder = 7
- OnClick = chkShowDialogClick
- end
- object chkReturnReceipt: TCheckBox
- Left = 16
- Top = 224
- Width = 97
- Height = 17
- Caption = 'Return Receipt'
- TabOrder = 8
- OnClick = chkReturnReceiptClick
- end
- object chkEnvelopeOnly: TCheckBox
- Left = 264
- Top = 176
- Width = 121
- Height = 17
- Caption = 'Envelope info only'
- TabOrder = 9
- OnClick = chkEnvelopeOnlyClick
- end
- object chkUnreadOnly: TCheckBox
- Left = 264
- Top = 200
- Width = 113
- Height = 17
- Caption = 'Unread mail only'
- TabOrder = 10
- OnClick = chkUnreadOnlyClick
- end
- object chkPeek: TCheckBox
- Left = 264
- Top = 224
- Width = 97
- Height = 17
- Caption = 'Message peek'
- TabOrder = 11
- OnClick = chkPeekClick
- end
- end
- object MapiSession1: TMapiSession
- MAPIOptions = [soLogonUI]
- Left = 464
- Top = 16
- end
- object MapiMessage1: TMapiMessage
- SendOptions = []
- ReadOptions = []
- Session = 0
- ClearOnSend = True
- Left = 464
- Top = 120
- end
- end
-